This is an R Markdown presentation. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document.

• Bullet 1
• Bullet 2
• Bullet 3

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

##   No. Code          State Number.of.Fatalities..2012
## 1   1   SC South Carolina                         63
## 2   2   WV  West Virginia                         49
## 3   3   MA  Massachusetts                         44
## 4   4   TN      Tennessee                        101
## 5   5   OK       Oklahoma                         97
## 6   6   IL       Illinois                        146
##   Rate.of.Fatalities..2012 State.Rank..Fatalities.2012
## 1                      3.5                          25
## 2                      6.9                          46
## 3                      1.4                           1
## 4                      3.8                          30
## 5                      6.1                          42
## 6                      2.5                          10
##   Number.of.Injuries.Illnesses.2012 Injuries.Illnesses.2012.Rate
## 1                             36200                          3.0
## 2                             19800                          4.1
## 3                             69700                          3.1
## 4                             65100                          3.5
## 5                             39000                          3.6
## 6                            124900                          3.2
##   Penalties.FY.2013..Average... Penalties.FY.2013..Rank. Inspectors
## 1                           492                       49         24
## 2                          1798                       27          7
## 3                          1929                       21         33
## 4                           727                       45         30
## 5                          1872                       24         19
## 6                          1876                       23         74
##   Years.to.Inspect.Each.Workplace.Once State.or.Federal.Program    Region
## 1                                  111                    State     South
## 2                                  173                  Federal     South
## 3                                  123                  Federal Northeast
## 4                                   82                    State     South
## 5                                  131                  Federal     South
## 6                                  137                  Federal   Midwest

## Warning: Ignoring 8 observations

## Warning: `line.width` does not currently support multiple values.

## Warning: `line.width` does not currently support multiple values.

## Warning: Ignoring 1 observations

## Warning in brewer.pal(n = 50, name = "Paired"): n too large, allowed maximum for palette Paired is 12
## Returning the palette you asked for with that many colors

## Warning: Ignoring 8 observations

## Warning in p$x$data[firstFrame] <- p$x$frames[[1]]$data: number of items to
## replace is not a multiple of replacement length

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors

## Warning in p$x$data[firstFrame] <- p$x$frames[[1]]$data: number of items to
## replace is not a multiple of replacement length

## Warning in brewer.pal(n = 50, name = "Paired"): n too large, allowed maximum for palette Paired is 12
## Returning the palette you asked for with that many colors

## Warning: Ignoring 1 observations

## Warning in p$x$data[firstFrame] <- p$x$frames[[1]]$data: number of items to
## replace is not a multiple of replacement length